home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / vgacad25.arc / VIEWBLD.BAS < prev    next >
BASIC Source File  |  1991-05-12  |  315b  |  20 lines

  1. SCREEN 13
  2.  
  3. DEF SEG = &HA000
  4. BLOAD "pboy.plt", 0
  5.  
  6. FOR plt = 0 TO 255
  7.         pltptr = plt * 3
  8.         r = PEEK(pltptr)
  9.         g = PEEK(pltptr + 1)
  10.         b = PEEK(pltptr + 2)
  11.         OUT 968, plt
  12.         OUT 969, r
  13.         OUT 969, g
  14.         OUT 969, b
  15. NEXT
  16.  
  17. BLOAD "pboy.bld", 0
  18. a$ = INPUT$(1)
  19.  
  20.